SELECT tree&
CASE menu&
  SELECT object&
  CASE menuabou&
    ' "šber mich..." wurde angeklickt
    ' => Infodialog anzeigen
    LET prginfo_dialog&=@win_open_dialog(1,prginfo&,-1)
  CASE menuquit&
    exit_program!=TRUE
  ENDSELECT
CASE prginfo&
  SELECT object&
  CASE infook&
    ' Der OK-Button wurde angeklickt
    ' => Infodialog schliežen
    @win_close(prginfo_dialog&)
  ENDSELECT
ENDSELECT